home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok53 / oberon2.0 / module / io.def < prev    next >
Text File  |  1993-11-04  |  864b  |  32 lines
  1. DEFINITION io;
  2.  
  3. IMPORT
  4.   d := Dos;
  5.  
  6. VAR
  7.   out, in : d.FileHandlePtr;
  8.   Me : d.ProcessPtr;
  9.   closeDelay : LONGINT;
  10.  
  11. PROCEDURE Length(str: ARRAY OF CHAR): INTEGER;
  12. PROCEDURE Write(ch: CHAR);
  13. PROCEDURE WriteLn;
  14. PROCEDURE WriteString(str: ARRAY OF CHAR);
  15. PROCEDURE Tab(n: INTEGER);
  16. PROCEDURE Clear();
  17. PROCEDURE Format(VAR str: String; data: LONGINT);
  18. PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
  19. PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
  20. PROCEDURE Read(VAR ch: CHAR);
  21. PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
  22. PROCEDURE ReadInt(VAR x: LONGINT): BOOLEAN;
  23. PROCEDURE ReadInteger(VAR x: INTEGER): BOOLEAN;
  24. PROCEDURE ReadShortInt(VAR x: SHORTINT): BOOLEAN;
  25. PROCEDURE ReadHex(VAR x: LONGINT): BOOLEAN;
  26. PROCEDURE ReadIntOk(VAR x: LONGINT);
  27. PROCEDURE ReadIntegerOk(VAR x: INTEGER);
  28. PROCEDURE ReadShortIntOk(VAR x: SHORTINT);
  29. PROCEDURE ReadHexOk(VAR x: LONGINT);
  30.  
  31. END io.
  32.